home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 April / april_2001.iso / intercd / root / Browsers / ^bu_Communicator / Mirc / setup.exe / SPD / SCRIPT.INI < prev    next >
Encoding:
INI File  |  2001-02-17  |  12.0 KB  |  376 lines
  1. [script]
  2. n0=
  3. n1=alias setup {
  4. n2=  dialog -md setup setup
  5. n3=  did -a setup 3 δ≡Θ±Σ
  6. n4=  did -a setup 3 ≥π_20
  7. n5=  did -a setup 3 ≥∙°Θφ_⌠∞σ±
  8. n6=  did -a setup 3 ∙∞σ∙Θφ_⌠∞σ±
  9. n7=  did -a setup 3 α°ß≥Θφ_⌠∞σ±
  10. n8=  did -a setup 3 εßσΓ°Θφ
  11. n9=  did -a setup 3 ±Φσπ≡ΦΘφ
  12. n10=  did -a setup 3 α≈Φσα∞ΘΣ
  13. n11=  did -a setup 3 ατ°Θ_Σδ∞
  14. n12=  did -a setup 3 Στπ°_∙∞_ß≡Θ
  15. n13=
  16. n14=  did -a setup 3 ±≈±
  17. n15=  did -a setup 3 ΓαΘφ_Γασ·
  18. n16=  did -a setup 3 Φ°ΘσσΘΣ
  19. n17=  did -a setup 3 π·ΘΘφ
  20. n18=  did -a setup 3 ασ⌠∞±
  21. n19=  did -a setup 3 Σδ°σΘσ·
  22. n20=  did -a setup 3 ατσ·_°τε≡ΘΘΣ
  23. n21=
  24. n22=  did -c setup 3 %startroom
  25. n23=  did -a setup 2 $putname($wallahebtoeng(%cNick))
  26. n24=  if (%io == on) did -c setup 9  
  27. n25=  if (%shownick == on) did -c setup 10
  28. n26=  if (%Jpwin == on) did -c setup 11
  29. n27=  if (%nicklist == r) did -c setup 6
  30. n28=  elseif (%nicklist == l) did -c setup 7
  31. n29=
  32. n30=  if (%spd.private.protection == on) { did -c setup 200 }
  33. n31=}
  34. n32=alias teap {
  35. n33=  tal
  36. n34=  did -r options 10  
  37. n35=  loopig
  38. n36=}
  39. n37=alias loopig {
  40. n38=  %iglen2 = $ignore(0)
  41. n39=  :looplist
  42. n40=  if (%iglen2 == 0) return
  43. n41=  did -a options 10 $putname($wallahebtoeng($get.ignore($ignore(%iglen2))))
  44. n42=  dec %iglen2
  45. n43=  goto looplist
  46. n44=}
  47. n45=alias tal {
  48. n46=  %dww = $1
  49. n47=  dialog -md options options
  50. n48=  did -f options 1
  51. n49=} 
  52. n50=dialog setup {
  53. n51=  size -1 -1 320 420
  54. n52=  title "Setup" 
  55. n53=  button "αΘ∙σ°", 1, 160 390 50 20, ok
  56. n54=  button "ßΘΦσ∞",13, 100 390 50 20,cancel
  57. n55=  Edit "", 2, 50 20 120 22, autohs,right
  58. n56=  Combo 3, 30 60 140 150, drop
  59. n57=  text ":∙φ/≡Θ≈ ≈ßσ≥",4,220 23 110 40
  60. n58=  text ":τπ° ∞δ≡Θ±Σ ß≥· Σ·τß°σ· ∞∙°·",5,200 55 110 40
  61. n59=  radio "÷εσπΣ ∞ΘεΘ∩",6, 215 110 85 15,left,group
  62. n60=  radio "εεσΘ≡· ∞⌠Θ α-ß",7, 200 130 100 15,left,
  63. n61=  box "°∙Θε· ∙εσ·",8,195 95 110 60
  64. n62=  check "Σσπ≥σ· ∙°·",9,85 105 85 15,left
  65. n63=  check "·÷σΓ· Στ∞⌠· ∙φ",10,60 125 110 15,left
  66. n64=  check "τ∞σ≡σ· ⌠°ΦΘΘφ",11,75 145 95 15,left
  67. n65=  box "",12,5 92 170 95
  68. n66=
  69. n67=  button " ε·≈πφ " ,101,10 103 50 19
  70. n68=  button " ÷ß≥Θφ ",102,10 163 50 19
  71. n69=  button " ΣΓπ°σ· ",103,65 163 50 19
  72. n70=  button " ΣΓ≡σ· ",104,120 163 50 19
  73. n71=
  74. n72=  check "±Θ±ε· ΣΓ≡· ⌠°ΦΘ",200,200 200 110 17,left
  75. n73=  text "±Θ±ε· ⌠·ΘτΣ",201,222 220 110 20
  76. n74=  edit %spd.private.open,202,125 217 90 20
  77. n75=  text "±Θ±ε· ±ΓΘ°Σ",203,224 240 110 20
  78. n76=  edit %spd.private.close,204,125 237 90 20
  79. n77=
  80. n78=}
  81. n79=
  82. n80=on *:dialog:setup:sclick:104: {
  83. n81=  /spd.do.protection
  84. n82=}
  85. n83=
  86. n84=on *:dialog:setup:sclick:103: {
  87. n85=  /teap
  88. n86=}
  89. n87=
  90. n88=on *:dialog:setup:sclick:101: {
  91. n89=  /spd.do.display
  92. n90=}
  93. n91=
  94. n92=on *:dialog:setup:sclick:102: {
  95. n93=  /spd.display.color.show
  96. n94=}
  97. n95=
  98. n96=alias get.ignore {
  99. n97=  unset %ignick  
  100. n98=  %iglen1 = $len($1)
  101. n99=  %igcount = 1
  102. n100=  :loopOF
  103. n101=  if ($mid($1,%igcount,1) == !) return %ignick
  104. n102=  %ignick = %ignick $+ $mid($1,%igcount,1)
  105. n103=  inc %igcount
  106. n104=  if (%igcount > %iglen1) return
  107. n105=  goto loopOF
  108. n106=}
  109. n107=on *:dialog:setup:sclick:1: {
  110. n108=  if ($did(setup,202).text != $null) { %spd.private.open = $did(setup,202).text }
  111. n109=  if ($did(setup,204).text != $null) { %spd.private.close = $did(setup,204).text }
  112. n110=
  113. n111=  if ($did(setup,200).state == 1) { %spd.private.protection = on }
  114. n112=  else { %spd.private.protection = off }
  115. n113=
  116. n114=
  117. n115=  %cNick = $wallahebtoeng($replace($did(setup,2).text,·,q,⌡,w))
  118. n116=  if (%cNick == $null ) set %cNick turj 
  119. n117=  %startRoom = $did(setup,3).sel
  120. n118=  ;,$did(setup,3).sel).text
  121. n119=  if (%startRoom == 1) %startR = #PUC-fbhxv
  122. n120=  if (%startRoom == 2) %startR = #PUC-gs_02
  123. n121=  if (%startRoom == 3) %startR = #PUC-02_pkux
  124. n122=  if (%startRoom == 4) %startR = #PUC-03_pkux
  125. n123=  if (%startRoom == 5) %startR = #PUC-04_pkux
  126. n124=  if (%startRoom == 6) %startR = #PUC-ncudrho
  127. n125=  if (%startRoom == 7) %startR = #PUC-thbyrby
  128. n126=  if (%startRoom == 8) %startR = #PUC-teyutkhv
  129. n127=  if (%startRoom == 9) %startR = #PUC-tjrh_vfk
  130. n128=  if (%startRoom == 10) %startR = #PUC-vjsr_ak_cbh
  131. n129=
  132. n130=  if (%startRoom == 11) %startR = #PUC-xex
  133. n131=  if (%startRoom == 12) %startR = #PUC-dtho_dtuq
  134. n132=  if (%startRoom == 13) %startR = #PUC-yrhuuhv
  135. n133=  if (%startRoom == 14) %startR = #PUC-sqhho
  136. n134=  if (%startRoom == 15) %startR = #PUC-tupkx
  137. n135=  if (%startRoom == 16) %startR = #PUC-vfruhuq
  138. n136=  if (%startRoom == 17) %startR = #PUC-tjuq_rjnbhhv
  139. n137=
  140. n138=  if (%startRoom == $null ) %startR = #PUC-fbhxv
  141. n139=  if ($did(setup,6).state == 1) { %nicklist = r | $iif($wallaonline,F5) }
  142. n140=  if ($did(setup,7).state == 1) { %nicklist = l | $iif($wallaonline,F5) }
  143. n141=  if ($did(setup,9).state == 1) %io = on
  144. n142=  else %io = off
  145. n143=  if ($did(setup,10).state == 1) %shownick = on
  146. n144=  else %shownick = off
  147. n145=  if ($did(setup,11).state == 1) %Jpwin = on
  148. n146=  else %Jpwin = off
  149. n147=
  150. n148=  %set = done
  151. n149=  if ($wallaonline == $false)  /start
  152. n150=
  153. n151=  if ($server == $null) { fornick3 $me }
  154. n152=  else if ($chan(0) > 0) { fornick $me }
  155. n153=  else { %spd.for.temp = $active | fornick2 $me }
  156. n154=} 
  157. n155=on *:dialog:options:sclick:8: {
  158. n156=  %ighim = $quick.rep($wallahebtoeng($did(options,9).text))
  159. n157=  if (%ighim == $null  ) return
  160. n158=  %iglong = $ignore(0)
  161. n159=  :loopA
  162. n160=  if (%iglong == 0) {
  163. n161=    did -i options 10 1 $putname($did(options,9).text)
  164. n162=    ignore %ighim   
  165. n163=    did -r options 9
  166. n164=    did -a options 11 $putname($wallahebtoeng($wallaname(%ighim))) Σσ±≤ ∞°∙Θε· Σ·≥∞εσ·
  167. n165=    return
  168. n166=  }
  169. n167=  else {
  170. n168=    if ($get.ignore($ignore(%iglong)) == %ighim) {
  171. n169=      did -r options 9     
  172. n170=      did -a options 11 $putname($wallahebtoeng($wallaname(%ighim))) δß° ≡ε÷α ßΣ·≥∞εσ·
  173. n171=      return
  174. n172=    }
  175. n173=  }
  176. n174=  dec %iglong
  177. n175=  goto loopA
  178. n176=}
  179. n177=alias quick.rep return $replace($1-,$chr(44),q,.,w)
  180. n178=
  181. n179=on *:dialog:options:sclick:7: {
  182. n180=  %delig5 = $quick.rep($wallahebtoeng($did(options,10,$did(options,10).sel).text))
  183. n181=  %deliglen3 = $ignore(0)
  184. n182=  :loopB
  185. n183=  if (%deliglen3 == 0) {
  186. n184=    did -a options 11 α°≥Σ ∙ΓΘαΣ 
  187. n185=    return
  188. n186=  }
  189. n187=  else {
  190. n188=    %delig4 = $get.ignore($ignore(%deliglen3))
  191. n189=    if (%delig5 == %delig4 ) {
  192. n190=      ignore -r %delig5
  193. n191=      did -d options 10 $did(options,10).sel
  194. n192=      did -a options 11 $putname($wallahebtoeng(%delig5)) ≡ετ≈ ε°∙Θε· Σ·≥∞εσ·
  195. n193=      return
  196. n194=    }
  197. n195=  }
  198. n196=  dec %deliglen3
  199. n197=  goto loopB 
  200. n198=}
  201. n199=
  202. n200=on *:dialog:options:sclick:6: {
  203. n201=  %del.ig1 = $ignore(0)
  204. n202=  :loop6
  205. n203=  if (%del.ig1 > 0) {
  206. n204=    dec %del.ig1
  207. n205=    ignore -r $ignore(1)
  208. n206=    goto loop6
  209. n207=  } 
  210. n208=  did -r options 10
  211. n209=  did -a options 11 °∙Θε· Σ·≥∞εσ· ≡ετ≈Σ  
  212. n210=}
  213. n211=
  214. n212=on *:dialog:options:init:0: {
  215. n213=  ;***highlight init
  216. n214=  %hilen = $lines(hi.txt)
  217. n215=  :hiloop
  218. n216=  %hi1 = $read -l $+ %hilen hi.txt
  219. n217=  if (%hi1 != $null)  did -a options 18 $putname($wallahebtoeng(%hi1))
  220. n218=  dec %hilen
  221. n219=  if (%hilen > 0 ) goto hiloop
  222. n220=  if (%beep == on) did -c hilight 21
  223. n221=  ;***notify init
  224. n222=  %notilen = $notify(0)
  225. n223=  :notiloop
  226. n224=  %noti1 = $notify(%notilen)
  227. n225=  if ((%noti1 != $null) && (%noti1 != 0)) did -a options 27 $putname($wallahebtoeng(%noti1))
  228. n226=  dec %notilen
  229. n227=  if (%notilen > 0) goto notiloop
  230. n228=  if (%beep2 == on) did -c options 30
  231. n229=}
  232. n230=
  233. n231=Dialog options {
  234. n232=  Title "options"
  235. n233=  Size -1 -1 370 220
  236. n234=  ;***ignore list
  237. n235=  tab "°∙Θε· Σ·≥∞εσ·",1,5 5 350 170  
  238. n236=  tab "Notify",2
  239. n237=  tab "Highlight",3
  240. n238=  button "Θ÷ΘαΣ",4,150 180 50 30,ok
  241. n239=  Box "≈ßΘ≥· Σ·≥∞εσ·", 5, 10 30 160 70,tab 1
  242. n240=  Button "ετ≈ Σδ∞", 6, 185 115 50 18,Default,tab 1
  243. n241=  Button  "Σ±° Σ·≥∞εσ· ", 7, 240 115 80 18,Default,tab 1
  244. n242=  Button "Σ·≥∞φ", 8, 65 75 60 18, Default,tab 1
  245. n243=  Edit "", 9, 15 45 150 22, autohs,right,tab 1
  246. n244=
  247. n245=  List 10, 180 45 140 80 ,tab 1
  248. n246=
  249. n247=  Text "", 11, 15 120 150 30,tab 1
  250. n248=  Text "°∙Θε· Σ·≥∞εσ·", 12, 180 30 140 12,tab 1
  251. n249=  ;****highlight
  252. n250=  Box "Highlight", 13, 10 30 160 70,tab 3
  253. n251=  Button "ετ≈ Σδ∞", 14, 185 115 50 18,Default,tab 3
  254. n252=  Button  "Highlight ,Σ±°",15, 240 115 80 18,Default,tab 3
  255. n253=  Button "Highlight", 16, 65 75 60 18, Default,tab 3
  256. n254=  Edit "",17, 15 45 145 22, autohs,right,tab 3
  257. n255=
  258. n256=  List 18, 180 45 140 80 ,tab 3
  259. n257=
  260. n258=  Text "", 19, 15 140 200 20,tab 3
  261. n259=  Text "Highlight °∙Θε·", 20, 180 30 140 20,tab 3
  262. n260=  Check "Beep",21, 15 103 55 20, left,tab 3
  263. n261=  ;***notify
  264. n262=  Box "Notify", 22, 10 30 160 70,tab 2
  265. n263=  Button "ετ≈ Σδ∞", 23, 185 115 50 18,Default,tab 2
  266. n264=  Button  "Notify Σ±°", 24, 240 115 80 18,Default,tab 2
  267. n265=  Button "Σσ±≤", 25, 65 75 60 18, Default,tab 2
  268. n266=  Edit "", 26, 15 45 145 22, autohs,right,tab 2
  269. n267=
  270. n268=  List 27, 180 45 140 80 ,tab 2
  271. n269=
  272. n270=  Text "", 28, 15 140 200 20,tab 2
  273. n271=  Text "Notify °∙Θε·", 29, 180 30 140 20,tab 2
  274. n272=  Check "Beep",30, 15 103 55 20, left,tab 2
  275. n273=
  276. n274=}
  277. n275=
  278. n276=alias hilight {
  279. n277=  dialog -md options options
  280. n278=  did -f options 3
  281. n279=}
  282. n280=
  283. n281=on *:dialog:options:sclick:21:{
  284. n282=  if ($did(options,21).state == 1) %beep = on
  285. n283=  else %beep = off
  286. n284=}
  287. n285=on *:dialog:options:sclick:16: {
  288. n286=  %highim = $quick.rep($wallahebtoeng($did(options,17).text))
  289. n287=  if ($read -s $+ %highim hi.txt ) { did -r options 17 | return }
  290. n288=  else {
  291. n289=    write hi.txt %highim
  292. n290=    did -a options 18 $did(options,17).text
  293. n291=    did -r options 17
  294. n292=  }
  295. n293=}
  296. n294=
  297. n295=on *:dialog:options:sclick:14: {
  298. n296=  %hilen2 = $lines(hi.txt)
  299. n297=  :hiloop2
  300. n298=  if ( %hilen2 == 0 ) {  did -r options 18 | return }
  301. n299=  else {
  302. n300=    write -dl $+ %hilen2 hi.txt
  303. n301=    dec %hilen2
  304. n302=    goto hiloop2
  305. n303=  }
  306. n304=}
  307. n305=
  308. n306=on *:dialog:options:sclick:15: {
  309. n307=  %hi2 = $quick.rep($wallahebtoeng($did(options,18,$did(options,18).sel).text))
  310. n308=  write -ds $+ %hi2 hi.txt
  311. n309=  did -d options 18 $did(options,18).sel
  312. n310=  did -a options 19 $putname($wallahebtoeng(%hi2)) Deleted
  313. n311=}
  314. n312=
  315. n313=alias wnotify {
  316. n314=  dialog -md options options
  317. n315=  did -f options 2
  318. n316=}
  319. n317=
  320. n318=on *:dialog:options:sclick:25: {
  321. n319=  %nothim = $quick.rep($wallahebtoeng($did(options,26).text))
  322. n320=  %notlen2 = $notify(0)
  323. n321=  :notiloop2
  324. n322=  if ((%notlen2 == 0) && ( $did(options,26).text == $null )) return
  325. n323=  if ((%notlen2 == 0) && ( $did(options,26).text != $null )) {
  326. n324=    did -i options 27 1 $putname($did(options,26).text)
  327. n325=    .notify %nothim   
  328. n326=    did -r options 26
  329. n327=    did -a options 28 $putname($wallahebtoeng($wallaname(%nothim))) added to Notify
  330. n328=    return
  331. n329=  }
  332. n330=  elseif ($notify(%notlen2) == %nothim) {
  333. n331=    did -r options 26     
  334. n332=    did -a options 28 $putname($wallahebtoeng($wallaname(%nothim))) already in Notify
  335. n333=    return
  336. n334=  }
  337. n335=
  338. n336=  dec %notlen2
  339. n337=  goto notiloop2
  340. n338=}
  341. n339=
  342. n340=on *:dialog:options:sclick:23: {
  343. n341=  %delallnot = $notify(0)
  344. n342=  :loopnot3
  345. n343=  if (%delallnot > 0) {
  346. n344=    dec %delallnot
  347. n345=    notify -r $notify(1)
  348. n346=    goto loopnot3
  349. n347=  } 
  350. n348=  did -r options 27
  351. n349=  did -a options 28 All Notify deleted  
  352. n350=}
  353. n351=on *:dialog:options:sclick:24: {
  354. n352=  %notdelhim = $quick.rep($wallahebtoeng($did(options,27,$did(options,27).sel).text))
  355. n353=  %notilen4 = $notify(0)
  356. n354=  :loopnot4
  357. n355=  if ( %notilen4  == 0) {
  358. n356=    did -a options 28 α°≥Σ ∙ΓΘαΣ 
  359. n357=    return
  360. n358=  }
  361. n359=  else {
  362. n360=    if (%notdelhim == $notify(%notilen4 )) {
  363. n361=      .notify -r %notdelhim
  364. n362=      did -d options 27 $did(options,27).sel
  365. n363=      did -a options 28 $putname($wallahebtoeng(%notdelhim)) deleted from Notify
  366. n364=      return
  367. n365=    }
  368. n366=  }
  369. n367=  dec %notilen4
  370. n368=  goto loopnot4
  371. n369=}
  372. n370=on *:dialog:options:sclick:30:{
  373. n371=  if ($did(options,30).state == 1) %beep2 = on
  374. n372=  else %beep2 = off
  375. n373=}
  376.